home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aah.d64 / temptation1 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  104 lines

  1. 1 REM(null)
  2. 5 REM(null)
  3. 8 POKE775,191
  4. 10 IFA=0THENA=1:LOAD"PICDRAW.SYS",8,1
  5. 30 FILE$="TEMPTATION2"+CHR$(13)
  6. 40 LADDR=32768:NAME=40447
  7. 50 GOSUB 1000
  8. 60 REM:THIS PROGRAM IS IN THE PUBLIC
  9. 62 REM:DOMAIN. PLEASE SHARE IT WITH
  10. 64 REM:CHURCHES AND PRIVATE CHRISTIAN
  11. 66 REM:SCHOOLS.
  12. 100 SYS36867:REM LOADER
  13. 110 SYS36886:REM XHIRES
  14. 120 SYS36873:REM CLRRM
  15. 129 POKE53265,PEEK(53265)AND239
  16. 130 SYS36870:REM REDRAW
  17. 131 POKE53265,PEEK(53265)OR16
  18. 140 FORT=1TO6000:NEXT
  19. 200 SYS36883
  20. 201 PRINTCHR$(8):PRINTCHR$(142)
  21. 202 READA$,B$,C$,D$,E$,F$,G$,H$,I$
  22. 203 IFG$="THE [205]ESSIAH"THEN500
  23. 204 IFA$="QZQZ"THEN700
  24. 205 PRINT"[147]    [212][200][197][160][212][197][205][208][212][193][212][201][207][206][160][207][198][160][202][197][211][213][211][160][201][206][160][204][213][203][197]"
  25. 206 PRINT"           BY [211]TEVE [215]ILLIAMS"
  26. 207 PRINT"  [209]UESTION - "A$
  27. 208 PRINT""B$
  28. 210 PRINT""C$
  29. 212 PRINT""D$
  30. 214 PRINT" [211]CRIPTURE - "E$
  31. 216 PRINT"   [215]AS IT (A) "F$
  32. 217 PRINT"OR WAS IT (B) "G$
  33. 218 J$=""
  34. 219 POKE198,0
  35. 220 PRINT" ANSWER A OR B"
  36. 221 GETJ$:IFJ$=""THEN221
  37. 250 IFJ$=H$THEN300
  38. 252 IFJ$=I$THEN330
  39. 253 GOTO221
  40. 300 PRINT"   VERY GOOD - THAT IS CORRECT!"
  41. 303 CT=CT+1
  42. 304 FORT=1TO3000:NEXT
  43. 305 GOTO202
  44. 330 IFI$="A"THENK$="B"
  45. 332 IFI$="B"THENK$="A"
  46. 334 PRINT" SORRY - THE ANSWER WAS "K$
  47. 338 FORT=1TO4000:NEXT
  48. 340 GOTO202
  49. 400 DATA"[202]ESUS' TEMPTATION","CAME IMMEDIATELY","AFTER HIS [164][164][164][164][164][164][164][164][164].",
  50. 402 DATA"[204]UKE 3:21-22","BAPTISM BY [202]OHN","HIS FIRST MIRACLE","A","B"
  51. 404 DATA"[200]OW LONG WAS [202]ESUS","IN THE WILDERNESS","DURING HIS TEMPTATION?",
  52. 406 DATA"[204]UKE 4:2","ONE WEEK","40 DAYS","B","A"
  53. 408 DATA"[215]HAT DID [202]ESUS EAT","DURING THIS PERIOD","OF TIME?",
  54. 410 DATA"[204]UKE 4:2","NOTHING","LOCUSTS AND HONEY","A","B"
  55. 412 DATA"[194]ECAUSE HE WAS HUNGRY","HE WAS TEMPTED TO","CHANGE WHAT INTO","BREAD?"
  56. 414 DATA"[204]UKE 4:3","A STONE","A TREE","A","B"
  57. 416 DATA"[202]ESUS' ANSWERS TO THE","DEVIL ALWAYS BEGAN","WITH WHAT WORDS?",
  58. 418 DATA"[204]UKE 4:4, 8, 12","[199]ET BEHIND ME [211]ATAN","[201]T IS WRITTEN","B","A"
  59. 420 DATA"[202]ESUS SAID, '[205]AN","SHALL NOT LIVE BY","[164][164][164][164][164][164][164][164] ALONE.'",
  60. 422 DATA"[204]UKE 4:4","MILK AND HONEY","BREAD","B","A"
  61. 424 DATA"[201]N THE SECOND TEMPTATION","THE DEVIL OFFERED","[202]ESUS WHAT?",
  62. 426 DATA"[204]UKE 4:5-6","FOOD AND WATER","THE KINGDOMS OF THE WORLD","B","A"
  63. 428 DATA"[215]ORLDLY KINGDOMS WERE","OFFERED IF [202]ESUS","WOULD DO WHAT?",
  64. 430 DATA"[204]UKE 4:7","WORSHIP THE DEVIL","CURSE [199]OD","A","B"
  65. 432 DATA"[201]N THE LAST TEMPTATION","[202]ESUS WAS TEMPTED TO","THROW HIMSELF DOWN"
  66. 434 DATA"FROM WHERE?","[204]UKE 4:9","[205]OUNT [211]INAI","THE PINNACLE OF THE TEMPLE"
  67. 435 DATA"B","A"
  68. 436 DATA"[202]ESUS RESPONDED BY","SAYING, '[217]OU SHALL","NOT TEMPT [164][164][164][164][164][164][164][164][164].'",
  69. 438 DATA"[204]UKE 4:12","THE [204]ORD YOUR [199]OD","THE [205]ESSIAH","A","B"
  70. 450 DATA"QZQZ",,,,,,,,,,
  71. 500 PRINT"   [210]EMEMBER OUR OPENING PICTURE?"
  72. 501 FORT=1TO3000:NEXT
  73. 502 SYS36886
  74. 503 FORT=1TO4000:NEXT
  75. 504 SYS36883
  76. 506 PRINT"[147]    [212][200][197][160][212][197][205][208][212][193][212][201][207][206][160][207][198][160][202][197][211][213][211][160][201][206][160][204][213][203][197]"
  77. 508 PRINT"           BY [211]TEVE [215]ILLIAMS"
  78. 510 GOTO207
  79. 700 PRINT"[147]   YOUR SCORE WAS"CT"OUT OF 10."
  80. 702 PRINT"   DO YOU WANT TO REVIEW AGAIN? (Y)"
  81. 703 PRINT"   OR QUIT? (N)"
  82. 704 GETA$:IFA$=""THEN704
  83. 708 IFA$="Y"THEN714
  84. 710 IFA$="N"THEN730
  85. 712 GOTO704
  86. 714 CT=0
  87. 715 RESTORE
  88. 716 SYS36886:REM XHIRES
  89. 720 GOTO140
  90. 730 SYS36886:REM XHIRES
  91. 732 FORT=1TO4000:NEXT
  92. 740 POKE775,167
  93. 750 SYS 64738
  94. 760 STOP
  95. 1000 REM
  96. 1010 LH=INT(LADDR/256):LL=LADDR-(LH*256)
  97. 1020 POKE 36878,00:POKE 36879,158
  98. 1030 POKE 36880,LL:POKE 36881,LH
  99. 1040 REM
  100. 1050 FOR I=1 TO LEN(FILE$)
  101. 1060 C=ASC(MID$(FILE$,I,I)):POKE NAME+I,C
  102. 1070 NEXT I
  103. 1080 RETURN
  104.